home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_B.d64 / sprite show (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  601b  |  19 lines
  1. 10 ifa=0thena=1:load"sprites",8,1
  2. 13 poke53248+37,11:rem sprite farbe 0
  3. 16 poke53248+38,15:rem sprite farbe 1
  4. 20 hi=peek(175)-32::lo=peek(174)
  5. 30 anz=(lo+256*hi)/64
  6. 35 printchr$(147):printanz" sprites"
  7. 40 poke53280,0:poke53281,0:poke53248,100:poke53248+1,100:poke2040,13:poke53248+21,1
  8. 50 forz=0toanz-1
  9. 60 ifpeek(2040)=14thenforb=0to63:poke832+b,peek(z*64+b+8192):next:w=peek(895)
  10. 70 ifpeek(2040)=13thenforb=0to63:poke896+b,peek(z*64+b+8192):next:w=peek(959)
  11. 90 a=wand128:ifa=128thenpoke53248+29,1
  12. 100 ifa=0thenpoke53248+29,0
  13. 120 a=wand64:ifa=64thenpoke53248+23,1
  14. 130 ifa=0thenpoke53248+23,0
  15. 150 a=wand32:ifa=32thenpoke53248+28,1
  16. 160 ifa=0thenpoke53248+28,0
  17. 170 poke53248+39,w:ifpeek(2040)=13thenpoke2040,14:fora=0to50:next:next:end
  18. 175 poke2040,13:fora=0to1:next:next
  19.